Computer Shopper 201/DPCS1104.ISO/Full/QuickBooks/QBTutor/Lesson2/Lesson2.dcr/00118_list double-click.ls

Text File | 2001-11-19 | 982 b | 30 lines

global jobsOnList, listItemNumber, listEditable, listInduhvidual, immutableCustomers, mutableCustomers

on mouseUp me
  if the doubleClick then
    if jobsOnList = "TRUE" then
      if (listItemNumber > 0) and (listItemNumber < 3) then
        listItemNumber = -1
      end if
      if listItemNumber > 2 then
        listItemNumber = listItemNumber - 2
      end if
    end if
    if listItemNumber >= 0 then
      if listItemNumber < immutableCustomers.count then
        listEditable = "FALSE"
        listInduhvidual = listItemNumber + 1
        fillInCustomerFields(immutableCustomers[listInduhvidual])
        go("Edit Cust 1")
      else
        if listItemNumber < (immutableCustomers.count + mutableCustomers.count) then
          listEditable = "TRUE"
          listInduhvidual = listItemNumber - immutableCustomers.count + 1
          fillInCustomerFields(mutableCustomers[listInduhvidual])
          go("Edit Cust 1")
        end if
      end if
    end if
  end if
end